|
AutoCAD VBA : Blockanzahl auslesen
Dressler am 07.03.2004 um 08:21 Uhr (0)
Hallo. Ich habe folgendes Problem, ich füge mittels VBA einen Block in eine Zeichnung ein z.B. den Block "Buchetisch".Nun möchte ich wenn dieser Block kopiert, oder mehrmals mit VBA eingefügt wurde zählen wie oft dieser Block in der Zeichnung vorkommt. ------------------Gruß Dressler
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Formular zum ausfüllen meines Zeichnungskopfes
Dressler am 20.11.2003 um 11:49 Uhr (0)
Jetzt stllt sich auch noch die Frage, ist dein Block schon in der Zeichnung eingesetzt oder nicht? --- Bisher ist kein Block eingefügt mit dem Zeichnungsrahmen um Platz in den Zeichnungen zu sparen wo ich verschiedene Blattgrößen mit unterschiedlichen Köpfen verwende. Wenn er schon in der Zeichnung ist, dann musst du nach der jeweiligen Blockreferenz suchen. --- Wie kann ich nach so einer Blockreferenz suchen? Wenn du aber den Block erst einfügen musst, dann ist das noch leichter, du kennst ja dann die B ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnungseigenschaften auslesen, verändern
Dressler am 19.01.2004 um 07:07 Uhr (0)
Hallo und einen schönen guten Morgen. Ich möchte mit Hilfe von VBA auf die Zeichnungseigenschaften zugreifen. Dabei möchte ich 1. aus der Statistik auslesen, -wer zuletzt die zeichnung gespeichert hat, -die Bearbeitungszeit. 2. die Datei-Info auslesen (Titel, Thema, Autor, Stichwörter, Kommentar) und diese Daten möglichst auch schreiben. Das beides würde ich gerne bei geöffneten und ungeöffneten Dateien machen. Ist das überhaupt möglich und sieht der Ansatz zumindest gleich aus? Danke im voraus. --------- ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockanzahl auslesen
Dressler am 11.03.2004 um 12:32 Uhr (0)
Hier mal mein Versuch der so leider nocht nicht funktioniert: Modul1: Public BlockAnzahl As LongAnzahl der Blöcke in der Zeichnung mit der Bezeichnung BlockNamePublic Function BlockCount(BlockName As String) As Long Dim SS As AcadSelectionSet Dim FltTypes(3) As Integer Dim FltData(3) As Variant Set SS = CreateSelectionSet("BlockAttUnvisibleAuswahl") FltTypes(0) = -4: FltData(0) = "AND" FltTypes(1) = 0: FltData(1) = "INSERT" FltTypes(2) = 2: FltData(2) = BlockName FltTypes(3) = -4: F ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
